home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 257 / SOMC Family Forum 257 - Disc 1.iso / somc / weblinks.dir / 00001_Script_Start Movie next >
Text File  |  1998-10-26  |  3KB  |  128 lines
  1.  
  2. on startMovie
  3.   
  4.   --* set the paths and exe for the setups
  5.   
  6.   global P1SETUP,P2SETUP,P3SETUP,P4SETUP
  7.   set P1SETUP to "@\SETUP.EXE" --ATALAS
  8.   set P2SETUP to "@\SETUP.EXE" --algebra
  9.   set P3SETUP to ""
  10.   set P4SETUP to ""
  11.   
  12.     
  13.   --* set weblink URLs
  14.   
  15.   global LINK1,LINK2,LINK3,LINK4,LINK5,LINK6,LINK7,LINK8,LINK9,LINK10
  16.   set link1 to "http://www.bsa.scouting.org/"
  17.   set link2 to "http://www.girlscouts.org/"
  18.   set link3 to "http://www.amnh.org/"
  19.   set link4 to "http://www.worldbook.com/fun/jfk/html/jfk.htm"
  20.   set link5 to "http://madsci.wustl.edu/"
  21.   set link6 to "http://sln.fi.edu/tfi/welcome.html"
  22.   set link7 to "http://vraptor.jpl.nasa.gov/voyager/voyager.html"
  23.   set link8 to "http://healthyideas.com/cooking/"
  24.   set link9 to "http://www.brookstoneonline.com/"
  25.   set link10 to "http://www.gao.gov/"
  26.   
  27.   
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.   
  38.   --* This declares the variables for the finger cursor. *
  39.   
  40.   global FINGER, FINGERMASK
  41.   set FINGER to the number of member "Finger1"
  42.   set FINGERMASK to the number of member "Finger2"
  43.   glowClear()
  44.   --* turn on altglows
  45.   glow(67,TRUE)
  46. end
  47.  
  48.  
  49.  
  50.  
  51. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  52.  
  53. on glow WHICHSPRITE, TRUEORFALSE
  54.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  55. end glow
  56.  
  57. --* TURN OF ALL GLOWS ON START
  58. on glowClear
  59.   repeat with i = 20 to 39
  60.     glow(i)
  61.   end repeat
  62. end
  63.  
  64. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  65.  
  66. on textglow WHICHMEMBER, COLORNUMBER
  67.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  68. end textglow
  69.  
  70.  
  71. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  72.  
  73. on openMIAW MYWINDOW
  74.   set myRect=the rect of window MYWINDOW
  75.   set myStage=the rect of the Stage
  76.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  77.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  78.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  79.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  80.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  81.   set the rect of window MYWINDOW=myNewRect
  82.   set the windowType of window MYWINDOW to 2
  83.   open window MYWINDOW
  84. end openMIAW
  85.  
  86.  
  87. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  88. on doRollout numsprite
  89.   glow(numsprite,FALSE)
  90.   cursor 0
  91. end
  92.  
  93. --* PLAYS A CLICK SOUND
  94.  
  95. on doClick
  96.   puppetsound 1,"clicksound"
  97.   updateStage
  98. end
  99.  
  100.  
  101.  
  102. -- Delays for x number of seconds
  103. on timedelay SECONDS 
  104.   startTimer
  105.   repeat while the timer < SECONDS * 60
  106.     nothing
  107.   end repeat    
  108. end
  109.  
  110.  
  111. on doRollover numsprite,SOUNDNUM
  112.   
  113.   global finger,fingermask
  114.   
  115.   cursor[finger,fingermask]
  116.   glow(numsprite,TRUE)
  117.   updatestage  
  118.   case SOUNDNUM of
  119.     1:
  120.       puppetsound 1, "rollsound"
  121.       --  repeat while soundbusy(1)
  122.       --  end repeat
  123.     2:
  124.       puppetsound 1, "rollsound2"
  125.       --  repeat while soundbusy(1)
  126.       --  end repeat      
  127.   end case  
  128. end